COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE
C00003 ENDMK
C⊗;
PRECEDE;
VARIABLE /PX4;
INSTRUMENT AMPL;
PX4 ← OSCIL(P4,MAG/P2,P5);
END;
INSTRUMENT INS1;
OSCIL(PX4*P4,MAG/P2,P5);
OSCIL(U1,MAG*P3,P6);
OUTA←OUTA+U2;
END;
PX4←1;
ARRAY F7(512);
SEG(F7); .02,1  1,30  .1,80  .01,100; <OVER-ALL AMPL. SHIFTS
SEG(F1); 0,1  1,6  1,90  0,100; <THE ENVELOPE
*
AMPL 0 0 2;
P2 8; P4 1; P5 F7;
END;
INS1 ;
P2 NU/B(A(.2X4/1.6)/ // @A)/@B/FINE;
P3 NO/C(C4/E/G/A/BF//B/C5/BF4/AF/G/FS)/@$C12;
P4 2000; P5 F1; P6 F4;
END;